home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / asuper1a / proppg.pag < prev    next >
Text File  |  1996-10-28  |  2KB  |  78 lines
  1. VERSION 5.00
  2. Begin VB.PropertyPage Properties 
  3.    Caption         =   "Properties"
  4.    ClientHeight    =   3492
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   5928
  8.    LockControls    =   -1  'True
  9.    PaletteMode     =   0  'Halftone
  10.    ScaleHeight     =   3492
  11.    ScaleWidth      =   5928
  12.    Begin VB.ComboBox cboScrollMode 
  13.       Height          =   288
  14.       Left            =   90
  15.       TabIndex        =   3
  16.       Text            =   "cboScrollMode"
  17.       Top             =   1032
  18.       Width           =   2700
  19.    End
  20.    Begin VB.TextBox txtText 
  21.       Height          =   330
  22.       Left            =   90
  23.       TabIndex        =   1
  24.       Top             =   370
  25.       Width           =   2700
  26.    End
  27.    Begin VB.Label lblScrollMode 
  28.       Caption         =   "ScrollMode:"
  29.       Height          =   240
  30.       Left            =   90
  31.       TabIndex        =   2
  32.       Top             =   770
  33.       Width           =   2700
  34.    End
  35.    Begin VB.Label lblText 
  36.       Caption         =   "Text:"
  37.       Height          =   240
  38.       Left            =   90
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   2700
  42.    End
  43. End
  44. Attribute VB_Name = "Properties"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = True
  47. Attribute VB_PredeclaredId = False
  48. Attribute VB_Exposed = True
  49. Option Explicit
  50.  
  51. Private Sub cboScrollMode_Change()
  52.   Changed = True
  53.   
  54. End Sub
  55.  
  56. Private Sub PropertyPage_Initialize()
  57.   With cboScrollMode
  58.     .AddItem "R_to_L"
  59.     .AddItem "L_to_R"
  60.   End With
  61. End Sub
  62.  
  63. Private Sub txtText_Change()
  64.     Changed = True
  65. End Sub
  66.  
  67. Private Sub PropertyPage_ApplyChanges()
  68.     SelectedControls(0).ScrollMode = cboScrollMode.ListIndex
  69.     SelectedControls(0).Text = txtText.Text
  70. End Sub
  71.  
  72. Private Sub PropertyPage_SelectionChanged()
  73.     cboScrollMode.ListIndex = SelectedControls(0).ScrollMode
  74.     txtText.Text = SelectedControls(0).Text
  75. End Sub
  76.  
  77.  
  78.